package rot13 ;
use Filter::Util::Call ;
sub import {
   filter_add(
      sub {
         my $status;
         tr/n-za-mN-ZA-M/a-zA-Z/
         if ($status = filter_read()) > 0;
         return $status;
      }
   );
}
1;
